home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Board & Card / AbacusV1.00 / Abacus-Install < prev    next >
Text File  |  1995-09-08  |  9KB  |  269 lines
  1. ;
  2. ;   Installation script for Abacus
  3. ;   Copyright © 1995 Kai Nickel
  4. ;
  5. ; $VER: Abacus-Install 1.00 (09.09.95)
  6. ;
  7.  
  8. (complete 0)
  9.  
  10. ;
  11. ; ***** Ask language
  12. ;
  13.  
  14.  
  15. (set lang
  16.   (askchoice (prompt "Wählen Sie ihre bevorzugte Sprache:\nSelect your preferred Language:")
  17.              (help "Wählen Sie hier Ihre bevorzugte Sprache für Abacus, die Anleitung und die weitere Installation.\n\n\nPlease select your prefered language for Abacus, the documentation and the further installation.")
  18.              (choices "deutsch" "english")
  19.              (default 0)
  20. ))
  21.  
  22.  
  23.  
  24. ;
  25. ; ***** Define strings
  26. ;
  27.  
  28. ( if (= lang 0)
  29.   (
  30.     (set wrongOS   "Es sieht so aus, als ob sie OS 1.3 oder kleiner benutzen. Abacus läuft aber erst ab OS 2.0.\nSie sollten sich überlegen, OS 3.1 anzuschaffen!\n")
  31.     (set wrongMUI  "Ihr MUI-System scheint zu alt zu sein und muß upgedated werden. Abacus benötigt mindestens MUI 2.3.\n Sie können Abacus jetzt installieren aber es wird nicht laufen, bevor MUI upgedated wird.\n")
  32.     (set noMUI     "Sie scheinen kein MUI installiert zu haben.\nAbacus benötigt aber MUI in der Version 2.3 oder höher. Sie können mit der Installation fortfahren, aber Abacus wird nicht laufen, bevor MUI nicht installiert wurde.\n")
  33.     (set selPath   "Wählen Sie den Pfad, in dem das neue Verzeichnis 'Abacus' erzeugt werden soll.")
  34.     (set selHelp   "\nEs werden etwa 90KB für die Installation benötigt.\nIm gewählten Pfad wird ein neues Verzeichnis namens 'Abacus' erzeugt, in das Abacus und die zugehörigen Dateien kopiert werden.\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n\n")
  35.     (set main      "Installieren des Hauptprogramms 'Abacus'")
  36.     (set mainHelp  "Das Hauptprogramm von Abacus. Die Dokumentation muß sich später im selben Verzeichnis befinden.\n")
  37.     (set guide     "Installieren der Dokumentation 'Abacus.guide'")
  38.     (set guidename "Docs/Deutsch/Abacus.guide")
  39.     (set guidehelp "'Abacus.guide' ist Dokumentation und gleichzeitig Online-Hilfe für Abacus.\nSie muß in das gleiche Verzeichnis wie das Hauptprogramm.")
  40.     (set mwb       "Möchten Sie MagicWB-Icons anstatt den normalen Icons installiert haben?")
  41.     (set mwbhelp   "Für die installierten Abacus-Files stehen Icons im MagicWB-Stil zur Verfügung.\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  42.     (set icons     "Kopieren der MagicWB-Icons.")
  43.     (set ende      "Abacus sollte nun komplett installiert sein. Starten Sie einfach das Hauptprogramm 'Abacus'.\nViel Spaß!")
  44.     (set gdir      "Erzeuge Verzeichnis für Spielstände")
  45.     (set ecat      "Den deutschen 'Abacus.catalog' installieren.")
  46.     (set ecathelp  "Der Abacus.catalog enthält alle deutschen Programmtexte.\nWer ihn nicht installiert, muß Abacus in Englisch ertragen. Kataloge werden erst ab AmigaOS2.1 unterstützt.\n")
  47.     (set deloldcat "Ein alter deutscher Abacus-Katalog wurde gefunden. Er wird nicht mehr benötigt.\nSoll ich den Katalog löschen?")
  48.     (set lib       "Installieren der garbagecollector.library")
  49.     (set libhelp   "Diese Library ist (frei kopierbarer) Teil des Amiga-Oberon-Systems der A+L AG. Abacus wird ohne sie nicht funktoinieren.\nDie Library wird defaultmäßig nach Abacus/Libs kopiert, sie wird aber natürlich auch im LIBS: Verzeichnis gefunden.")
  50.     (set libdir    "Erzeuge Verzeichnis für garbagecollector.library")
  51.     (set catdir    "Erzeuge Verzeichnis für Katalog.")
  52.   )
  53.   (
  54.     (set wrongOS   "It looks like you are using OS 1.3 or lower. But Abacus needs Kickstart 2.0 or higher! You should seriously consider to buy OS 3.1.\n")
  55.     (set wrongMUI  "Your MUI-System seems to be too old for Abacus and needs to be updated. Abacus needs at least MUI 2.3 to work.\nYou can install Abacus now but it will not work before updating MUI.\n")
  56.     (set noMUI     "Seems like MUI is not installed!\nAbacus needs MUI 2.3 or higher. You can continue the installation but keep in mind, that Abacus will not work before you also installed MUI.\n")
  57.     (set selPath   "Choose the path where the new drawer 'Abacus' should be created.")
  58.     (set selHelp   "\nAbout 90KB will be needed for the installation.\nIn the choosen path a new directory called 'Abacus' will be created, in which Abacus and the other files will be copied.\nYou also may create a new drawer via 'Make New Drawer' before.\n\n")
  59.     (set main      "Install the main program 'Abacus'")
  60.     (set mainHelp  "The main program of Abacus. The documentation later has to be in the same drawer.\n")
  61.     (set guide     "Install the documentation 'Abacus.guide'")
  62.     (set guidename "Docs/English/Abacus.guide")
  63.     (set guidehelp "'Abacus.guide' is the documentation and online-help for Abacus.\nIt must be placed into the same drawer as the main program.\n")
  64.     (set mwb       "Do you want to install MagicWB-icons instead of the normal ones?")
  65.     (set mwbhelp   "For all installed Abacus-files exist icons in ths MagicWB-style.\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench-enhancment by Martin Huttenloher.)")
  66.     (set icons     "Installing the MagicWB-icons.")
  67.     (set ende      "Abacus should now be completely installed. Start it just by double-clicking the main-program 'Abacus'.\nHave fun!\n")
  68.     (set gdir      "Create drawer for saved games")
  69.     (set lib       "Install the garbagecollector.library")
  70.     (set libhelp   "This library is part of the 'Amiga-Oberon-System' of the A+L AG. Abacus will not work without it.\n")
  71.     (set libdir    "Create drawer for garbagecollector.library")
  72.   )
  73. )
  74.  
  75.  
  76.  
  77. ;
  78. ; ***** Check OS and MUI
  79. ;
  80.  
  81. (set OSVersion   (/ (getversion) 65536))
  82. (set WBVersion   (/ (getversion "version.library" (resident)) 65536))
  83. (if (< OSVersion 36)
  84.   (message wrongOS)
  85. )
  86.  
  87. (set MUIVersion  10)
  88. (if (exists ("Libs:muimaster.library"))
  89.   (
  90.     (set muiver (/ (getversion "Libs:MUIMASTER.library") 65536))
  91.     (if (< muiver MUIVersion) (message wrongMUI))
  92.   )
  93.   (
  94.     (message noMUI)
  95.   )
  96. )
  97.  
  98. (complete 5)
  99.  
  100.  
  101.  
  102. ;
  103. ; ***** Get and Create Path
  104. ;
  105.  
  106. (set destination
  107.   (askdir (prompt  selPath)
  108.           (help    selHelp)
  109.           (default @default-dest)
  110.   )
  111. )
  112.  
  113. (set destination (tackon destination "Abacus"))
  114.  
  115. (set @default-dest destination)
  116.  
  117. (makedir destination
  118.   (help @makedir-help)
  119.   (infos)
  120. )
  121.  
  122. (complete 10)
  123.  
  124.  
  125.  
  126. ;
  127. ; ***** Copy Main Program, Guide and RegForm
  128. ;
  129.  
  130. (copyfiles (prompt main)
  131.            (source "Abacus")
  132.            (dest destination)
  133.            (confirm)
  134.            (infos)
  135.            (noposition)
  136.            (help mainHelp)
  137. )
  138.  
  139. (complete 40)
  140.  
  141. (copyfiles (prompt guide)
  142.            (source guidename)
  143.            (dest destination)
  144.            (confirm)
  145.            (infos)
  146.            (noposition)
  147.            (help guidehelp)
  148. )
  149.  
  150. (complete 50)
  151.  
  152.  
  153.  
  154. ;
  155. ; ***** Copy Library
  156. ;
  157.  
  158. (makedir (tackon destination "Libs")
  159.          (help @makedir-help)
  160.          (confirm)
  161.          (infos)
  162.          (prompt libdir)
  163. )
  164.  
  165. (copylib (prompt lib)
  166.          (source "libs/garbagecollector.library")
  167.          (dest (tackon destination "Libs"))
  168.          (confirm)
  169.          (help libhelp)
  170. )
  171.  
  172.  
  173.  
  174. (complete 60)
  175.  
  176.  
  177.  
  178. ;
  179. ; ***** Copy Catalog
  180. ;
  181.  
  182.  
  183. ( if (= lang 0)
  184.  (
  185.   (makedir (tackon destination "Catalogs")
  186.            (help @makedir-help)
  187.            (confirm)
  188.            (infos)
  189.            (prompt catdir)
  190.   )
  191.  
  192.   (makedir (tackon destination "Catalogs/deutsch")
  193.            (help @makedir-help)
  194.            (confirm)
  195.            (infos)
  196.            (prompt catdir)
  197.   )
  198.  
  199.   (copyfiles
  200.            (prompt ecat)
  201.            (source "Catalogs/deutsch/Abacus.catalog")
  202.            (dest (tackon destination "Catalogs/deutsch"))
  203.            (confirm)
  204.            (help ecathelp)
  205.   )
  206.  )
  207. )
  208.  
  209. (complete 70)
  210.  
  211.  
  212.  
  213. ;
  214. ; ***** Make game drawer
  215. ;
  216.  
  217. (makedir (tackon destination "Games")
  218.          (help @makedir-help)
  219.          (infos)
  220.          (prompt gdir)
  221.          (confirm)
  222. )
  223.  
  224. (complete 80)
  225.  
  226.  
  227.  
  228. ;
  229. ; ***** Copy MagicWB-Icons
  230. ;
  231.  
  232. (if
  233.   (askbool (help   mwbhelp)
  234.            (prompt mwb)
  235.   )
  236.   (
  237.     (copyfiles (prompt icons)
  238.                (source "MWBIcons/")
  239.                (dest destination)
  240.                (pattern "Abacus#?")
  241.     )
  242.  
  243.     (copyfiles (prompt icons)
  244.                (source "MWBIcons/Games.info")
  245.                (dest destination)
  246.     )
  247.  
  248.     (copyfiles (prompt icons)
  249.                (source "MWBIcons/Libs.info")
  250.                (dest destination)
  251.     )
  252.  
  253.     ( if (= lang 0)
  254.       (
  255.         (copyfiles (prompt icons)
  256.                    (source "MWBIcons/Catalogs.info")
  257.                    (dest destination)
  258.         )
  259.       )
  260.     )
  261.  
  262.     (run (cat "copy " "MWBIcons/Drawer.info \"" destination ".info\""))
  263.   )
  264. )
  265.  
  266. (complete 100)
  267.  
  268. (exit ende)
  269.